if #hpos$>=#midPt-10
  newline
  #lswidth=1
else
  #lswidth=-1
endif
cell static,local(@tag)&":"
set tabwidth -1 alignment right

if @this._XTEX="Y"
  ! edit field with value
  hskip 3
  cell EditValue
  if #lswidth<0
    set Width -1
  else
    set Width #midPt-#hpos$-10
  endif
  help "Enter any font installed on your computer"
  help " (see any text panel for font names and entry is case sensitive)"

else
  ! popup menu
  cell PopupMenuEdit
  MenuItems "Computer Modern Roman","Times","Palatino","Bookman"
  MenuItems "New Century Schoolbook","Charter","Helvetica","Avant-Garde"
  MenuItems "Zapf Chancery"
  SizeToFit -1
  help "Click to select font family for the book"
  help " (to allow more fonts, switch to typesetting by XeTeX)"

endif
